home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 1 / NIKKEI-MAC-CD-ROM-1994-2-17.ISO.7z / NIKKEI-MAC-CD-ROM-1994-2-17.ISO / デモソフト・ライブラリー / グラフィックス⁄CAD / マックドロー Pro / マックドロー Pro サンプル版 / マックドロー Pro サンプル版.rsrc / STR#_7100.txt < prev    next >
Text File  |  1993-12-24  |  618b  |  79 lines
  1. } bind def
  2.  
  3.  
  4. {turkeypat} image
  5.  
  6.  
  7. /FI {
  8.  
  9.  
  10. } bind def
  11.  
  12.  
  13. {turkeypat} false 3 colorimage
  14.  
  15.  
  16. /FCI {
  17.  
  18.  
  19. } bind def
  20.  
  21.  
  22.  grayBuf turkeypat copy pop
  23.  
  24.  
  25.  /turkeypat grayBuf length string def
  26.  
  27.  
  28.  } repeat
  29.  
  30.  
  31.       grayBuf j 3 -1 roll put /j j 1 add def
  32.  
  33.  
  34.       /i i 1 add def
  35.  
  36.  
  37.       rgbArray i get 0.12 mul add cvi
  38.  
  39.  
  40.       /i i 1 add def
  41.  
  42.  
  43.       rgbArray i get 0.55 mul add
  44.  
  45.  
  46.       /i i 1 add def
  47.  
  48.  
  49.     rgbArray i get 0.33 mul
  50.  
  51.  
  52.     grayBuf length{
  53.  
  54.  
  55.  /j 0 def
  56.  
  57.  
  58.  /i 0 def
  59.  
  60.  
  61.  turkeypat {rgbArray j 3 -1 roll put /j j 1 add def} forall
  62.  
  63.  
  64.  /j 0 def
  65.  
  66.  
  67.  /i 0 def
  68.  
  69.  
  70.  /grayBuf turkeypat length 3 idiv string def
  71.  
  72.  
  73.  /rgbArray turkeypat length array def
  74.  
  75.  
  76. /CI2I {
  77.  
  78.  
  79.